home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / printing / vbgprt / gprinter.frm < prev    next >
Text File  |  1994-06-03  |  2KB  |  54 lines
  1. VERSION 2.00
  2. Begin Form GeneralPrinter 
  3.    BackColor       =   &H8000000F&
  4.    Caption         =   "General Printer"
  5.    ClientHeight    =   3315
  6.    ClientLeft      =   210
  7.    ClientTop       =   2115
  8.    ClientWidth     =   6510
  9.    Height          =   3720
  10.    Left            =   150
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3315
  13.    ScaleWidth      =   6510
  14.    Top             =   1770
  15.    Visible         =   0   'False
  16.    Width           =   6630
  17.    Begin CommonDialog CMDialog1 
  18.       Left            =   4800
  19.       Top             =   120
  20.    End
  21.    Begin ccCallback Callback1 
  22.       IntVersion      =   1
  23.       Left            =   5520
  24.       Top             =   120
  25.       Type            =   1  'AbortProc
  26.    End
  27. End
  28. '----------------------------------------------------------------
  29. 'Copyright 1994   Unger Business Systems  All Rights Reserved
  30. 'This code is distributed as shareware.  If you use it, you
  31. 'are required by law to register it.  Please contact Unger
  32. 'Business Systems at 11926 Barrett Brae, Houston, TX 77072-4004
  33. 'or call (713) 498-8517.  Registration fee is $20.00 US
  34. 'See the README.TXT file for more information
  35. '
  36. 'All code, forms, modules, controls, etc. are provided without
  37. 'warranty or liability
  38. '----------------------------------------------------------------
  39.  
  40. Option Explicit
  41.  
  42. Sub Callback1_AbortProc (hPr As Integer, code As Integer, retval As Integer)
  43.     Dim di%
  44.     ' Call DoEvents so the ' user button press
  45.     'will be detected
  46.     DoEvents
  47.     If code = SP_OUTOFDISK Or AbortPrinting% Then
  48.         retval = 0
  49.         Exit Sub
  50.     End If
  51.     retval = -1
  52. End Sub
  53.  
  54.